home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1989-11-15 | 4.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(provide (quote chistory))
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 63 68 69 73 74 6f 72 | 79 29 29 0a 0a 28 64 65 | chistor|y))..(de|
|00000020| 66 75 6e 20 72 65 70 65 | 61 74 2d 6d 61 74 63 68 |fun repe|at-match|
|00000030| 69 6e 67 2d 63 6f 6d 70 | 6c 65 78 2d 63 6f 6d 6d |ing-comp|lex-comm|
|00000040| 61 6e 64 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |and (&op|tional p|
|00000050| 61 74 74 65 72 6e 29 20 | 22 5c 0a 45 64 69 74 20 |attern) |"\.Edit |
|00000060| 61 6e 64 20 72 65 2d 65 | 76 61 6c 75 61 74 65 20 |and re-e|valuate |
|00000070| 63 6f 6d 70 6c 65 78 20 | 63 6f 6d 6d 61 6e 64 20 |complex |command |
|00000080| 77 69 74 68 20 6e 61 6d | 65 20 6d 61 74 63 68 69 |with nam|e matchi|
|00000090| 6e 67 20 50 41 54 54 45 | 52 4e 2e 0a 4d 61 74 63 |ng PATTE|RN..Matc|
|000000a0| 68 69 6e 67 20 6f 63 63 | 75 72 72 65 6e 63 65 73 |hing occ|urrences|
|000000b0| 20 61 72 65 20 64 69 73 | 70 6c 61 79 65 64 2c 20 | are dis|played, |
|000000c0| 6d 6f 73 74 20 72 65 63 | 65 6e 74 20 66 69 72 73 |most rec|ent firs|
|000000d0| 74 2c 20 75 6e 74 69 6c | 20 79 6f 75 0a 73 65 6c |t, until| you.sel|
|000000e0| 65 63 74 20 61 20 66 6f | 72 6d 20 66 6f 72 20 65 |ect a fo|rm for e|
|000000f0| 76 61 6c 75 61 74 69 6f | 6e 2e 20 20 49 66 20 50 |valuatio|n. If P|
|00000100| 41 54 54 45 52 4e 20 69 | 73 20 65 6d 70 74 79 20 |ATTERN i|s empty |
|00000110| 28 6f 72 20 6e 69 6c 29 | 2c 20 65 76 65 72 79 20 |(or nil)|, every |
|00000120| 66 6f 72 6d 0a 69 6e 20 | 74 68 65 20 63 6f 6d 6d |form.in |the comm|
|00000130| 61 6e 64 20 68 69 73 74 | 6f 72 79 20 69 73 20 6f |and hist|ory is o|
|00000140| 66 66 65 72 65 64 2e 20 | 20 54 68 65 20 66 6f 72 |ffered. | The for|
|00000150| 6d 20 69 73 20 70 6c 61 | 63 65 64 20 69 6e 20 74 |m is pla|ced in t|
|00000160| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 0a 66 6f |he minib|uffer.fo|
|00000170| 72 20 65 64 69 74 69 6e | 67 20 61 6e 64 20 74 68 |r editin|g and th|
|00000180| 65 20 72 65 73 75 6c 74 | 20 69 73 20 65 76 61 6c |e result| is eval|
|00000190| 75 61 74 65 64 2e 22 20 | 0a 28 69 6e 74 65 72 61 |uated." |.(intera|
|000001a0| 63 74 69 76 65 20 22 73 | 52 65 64 6f 20 43 6f 6d |ctive "s|Redo Com|
|000001b0| 6d 61 6e 64 20 28 72 65 | 67 65 78 70 29 3a 20 22 |mand (re|gexp): "|
|000001c0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|000001d0| 08 85 1d 00 c6 08 c7 c8 | 08 5c 22 86 11 00 08 47 |........|.\"....G|
|000001e0| c1 4f 89 10 c9 5c 22 85 | 1d 00 c1 89 10 88 0b c1 |.O...\".|........|
|000001f0| c1 1d 1c 1a 0a 85 2a 00 | 0d 3f 85 5d 00 0a 40 89 |......*.|.?.]..@.|
|00000200| 14 88 08 3f 86 3e 00 c7 | 08 ca 0c 40 21 5c 22 85 |...?.>..|...@!\".|
|00000210| 4b 00 cb cc cd ce 0c 21 | 89 14 5c 22 21 83 55 00 |K......!|..\"!.U.|
|00000220| 0a 40 89 15 82 59 00 0a | 41 89 12 88 82 24 00 88 |.@...Y..|A....$..|
|00000230| 0d 3f 83 69 00 cf d0 21 | 82 6d 00 d1 d2 0d 5c 22 |.?.i...!|.m....\"|
|00000240| 2b 87 22 20 5b 70 61 74 | 74 65 72 6e 20 6e 69 6c |+." [pat|tern nil|
|00000250| 20 68 69 73 74 6f 72 79 | 20 63 6f 6d 6d 61 6e 64 | history| command|
|00000260| 2d 68 69 73 74 6f 72 79 | 20 74 65 6d 70 20 77 68 |-history| temp wh|
|00000270| 61 74 20 65 71 75 61 6c | 20 73 74 72 69 6e 67 2d |at equal| string-|
|00000280| 6d 61 74 63 68 20 22 5b | 20 09 5d 2a 5b 5e 20 09 |match "[| .]*[^ .|
|00000290| 5d 22 20 22 22 20 73 79 | 6d 62 6f 6c 2d 6e 61 6d |]" "" sy|mbol-nam|
|000002a0| 65 20 79 2d 6f 72 2d 6e | 2d 70 20 66 6f 72 6d 61 |e y-or-n|-p forma|
|000002b0| 74 20 22 52 65 64 6f 20 | 25 73 3f 20 22 20 70 72 |t "Redo |%s? " pr|
|000002c0| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 0a 65 |in1-to-s|tring .e|
|000002d0| 72 72 6f 72 20 22 43 6f | 6d 6d 61 6e 64 20 68 69 |rror "Co|mmand hi|
|000002e0| 73 74 6f 72 79 20 65 78 | 68 61 75 73 74 65 64 2e |story ex|hausted.|
|000002f0| 22 20 65 64 69 74 2d 61 | 6e 64 2d 65 76 61 6c 2d |" edit-a|nd-eval-|
|00000300| 63 6f 6d 6d 61 6e 64 20 | 22 52 65 64 6f 3a 20 22 |command |"Redo: "|
|00000310| 5d 20 31 31 29 29 0a 0a | 28 64 65 66 76 61 72 20 |] 11))..|(defvar |
|00000320| 64 65 66 61 75 6c 74 2d | 63 6f 6d 6d 61 6e 64 2d |default-|command-|
|00000330| 68 69 73 74 6f 72 79 2d | 66 69 6c 74 65 72 2d 67 |history-|filter-g|
|00000340| 61 72 62 61 67 65 20 28 | 71 75 6f 74 65 20 28 63 |arbage (|quote (c|
|00000350| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2d 6d |ommand-h|istory-m|
|00000360| 6f 64 65 20 6c 69 73 74 | 2d 63 6f 6d 6d 61 6e 64 |ode list|-command|
|00000370| 2d 68 69 73 74 6f 72 79 | 20 65 6c 65 63 74 72 69 |-history| electri|
|00000380| 63 2d 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 |c-comman|d-histor|
|00000390| 79 29 29 20 22 5c 0a 2a | 41 20 6c 69 73 74 20 6f |y)) "\.*|A list o|
|000003a0| 66 20 73 79 6d 62 6f 6c | 73 2e 20 20 49 66 20 20 |f symbol|s. If |
|000003b0| 64 65 66 61 75 6c 74 2d | 6c 69 73 74 2d 63 6f 6d |default-|list-com|
|000003c0| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 66 69 6c |mand-his|tory-fil|
|000003d0| 74 65 72 20 20 69 73 0a | 67 69 76 65 6e 20 61 20 |ter is.|given a |
|000003e0| 6c 69 73 74 20 77 68 6f | 73 65 20 63 61 72 20 69 |list who|se car i|
|000003f0| 73 20 61 6e 20 65 6c 65 | 6d 65 6e 74 20 6f 66 20 |s an ele|ment of |
|00000400| 74 68 69 73 20 6c 69 73 | 74 2c 20 74 68 65 6e 20 |this lis|t, then |
|00000410| 69 74 20 77 69 6c 6c 20 | 72 65 74 75 72 6e 0a 6e |it will |return.n|
|00000420| 6f 6e 2d 6e 69 6c 20 28 | 69 6e 64 69 63 61 74 69 |on-nil (|indicati|
|00000430| 6e 67 20 74 68 65 20 6c | 69 73 74 20 73 68 6f 75 |ng the l|ist shou|
|00000440| 6c 64 20 62 65 20 64 69 | 73 63 61 72 64 65 64 20 |ld be di|scarded |
|00000450| 66 72 6f 6d 20 74 68 65 | 20 68 69 73 74 6f 72 79 |from the| history|
|00000460| 29 2e 0a 49 6e 69 74 69 | 61 6c 6c 79 2c 20 61 6c |)..Initi|ally, al|
|00000470| 6c 20 63 6f 6d 6d 61 6e | 64 73 20 72 65 6c 61 74 |l comman|ds relat|
|00000480| 65 64 20 74 6f 20 74 68 | 65 20 63 6f 6d 6d 61 6e |ed to th|e comman|
|00000490| 64 20 68 69 73 74 6f 72 | 79 20 61 72 65 20 64 69 |d histor|y are di|
|000004a0| 73 63 61 72 64 65 64 2e | 22 29 0a 0a 28 64 65 66 |scarded.|")..(def|
|000004b0| 76 61 72 20 6c 69 73 74 | 2d 63 6f 6d 6d 61 6e 64 |var list|-command|
|000004c0| 2d 68 69 73 74 6f 72 79 | 2d 66 69 6c 74 65 72 20 |-history|-filter |
|000004d0| 28 71 75 6f 74 65 20 64 | 65 66 61 75 6c 74 2d 63 |(quote d|efault-c|
|000004e0| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2d 66 |ommand-h|istory-f|
|000004f0| 69 6c 74 65 72 29 20 22 | 5c 0a 49 66 20 6e 6f 6e |ilter) "|\.If non|
|00000500| 2d 6e 69 6c 2c 20 73 68 | 6f 75 6c 64 20 62 65 20 |-nil, sh|ould be |
|00000510| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 61 20 66 75 |the name| of a fu|
|00000520| 6e 63 74 69 6f 6e 20 6f | 66 20 6f 6e 65 20 61 72 |nction o|f one ar|
|00000530| 67 75 6d 65 6e 74 2e 0a | 49 74 20 69 73 20 70 61 |gument..|It is pa|
|00000540| 73 73 65 64 20 65 61 63 | 68 20 65 6c 65 6d 65 6e |ssed eac|h elemen|
|00000550| 74 20 6f 66 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |t of the| command|
|00000560| 20 68 69 73 74 6f 72 79 | 20 77 68 65 6e 0a 5c 5c | history| when.\\|
|00000570| 5b 6c 69 73 74 2d 63 6f | 6d 6d 61 6e 64 2d 68 69 |[list-co|mmand-hi|
|00000580| 73 74 6f 72 79 5d 20 69 | 73 20 63 61 6c 6c 65 64 |story] i|s called|
|00000590| 2e 20 20 49 66 20 74 68 | 65 20 66 69 6c 74 65 72 |. If th|e filter|
|000005a0| 20 72 65 74 75 72 6e 73 | 20 6e 6f 6e 2d 6e 69 6c | returns| non-nil|
|000005b0| 20 66 6f 72 0a 73 6f 6d | 65 20 65 6c 65 6d 65 6e | for.som|e elemen|
|000005c0| 74 2c 20 74 68 61 74 20 | 65 6c 65 6d 65 6e 74 20 |t, that |element |
|000005d0| 69 73 20 65 78 63 6c 75 | 64 65 64 20 66 72 6f 6d |is exclu|ded from|
|000005e0| 20 74 68 65 20 68 69 73 | 74 6f 72 79 20 6c 69 73 | the his|tory lis|
|000005f0| 74 69 6e 67 2e 20 20 54 | 68 65 0a 64 65 66 61 75 |ting. T|he.defau|
|00000600| 6c 74 20 66 69 6c 74 65 | 72 20 72 65 6d 6f 76 65 |lt filte|r remove|
|00000610| 73 20 63 6f 6d 6d 61 6e | 64 73 20 61 73 73 6f 63 |s comman|ds assoc|
|00000620| 69 61 74 65 64 20 77 69 | 74 68 20 74 68 65 20 63 |iated wi|th the c|
|00000630| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 2e 22 |ommand-h|istory."|
|00000640| 29 0a 0a 28 64 65 66 75 | 6e 20 64 65 66 61 75 6c |)..(defu|n defaul|
|00000650| 74 2d 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 |t-comman|d-histor|
|00000660| 79 2d 66 69 6c 74 65 72 | 20 28 66 72 6f 62 29 20 |y-filter| (frob) |
|00000670| 22 5c 0a 46 69 6c 74 65 | 72 20 63 6f 6d 6d 61 6e |"\.Filte|r comman|
|00000680| 64 73 20 6d 61 74 63 68 | 69 6e 67 20 20 64 65 66 |ds match|ing def|
|00000690| 61 75 6c 74 2d 63 6f 6d | 6d 61 6e 64 2d 68 69 73 |ault-com|mand-his|
|000006a0| 74 6f 72 79 2d 66 69 6c | 74 65 72 2d 67 61 72 62 |tory-fil|ter-garb|
|000006b0| 61 67 65 20 20 6c 69 73 | 74 0a 66 72 6f 6d 20 74 |age lis|t.from t|
|000006c0| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 68 69 73 74 6f |he comma|nd histo|
|000006d0| 72 79 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ry." (by|te-code |
|000006e0| 22 08 3a 3f 86 0a 00 08 | 40 09 3e 87 22 20 5b 66 |".:?....|@.>." [f|
|000006f0| 72 6f 62 20 64 65 66 61 | 75 6c 74 2d 63 6f 6d 6d |rob defa|ult-comm|
|00000700| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 66 69 6c 74 |and-hist|ory-filt|
|00000710| 65 72 2d 67 61 72 62 61 | 67 65 5d 20 32 29 29 0a |er-garba|ge] 2)).|
|00000720| 0a 28 64 65 66 76 61 72 | 20 6c 69 73 74 2d 63 6f |.(defvar| list-co|
|00000730| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 6d 61 |mmand-hi|story-ma|
|00000740| 78 20 33 32 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d |x 32 "\.|*If non-|
|00000750| 6e 69 6c 2c 20 73 68 6f | 75 6c 64 20 62 65 20 61 |nil, sho|uld be a|
|00000760| 20 70 6f 73 69 74 69 76 | 65 20 6e 75 6d 62 65 72 | positiv|e number|
|00000770| 20 77 68 69 63 68 20 73 | 70 65 63 69 66 69 65 73 | which s|pecifies|
|00000780| 20 74 68 65 20 6d 61 78 | 69 6d 75 6d 0a 6c 65 6e | the max|imum.len|
|00000790| 67 74 68 20 6f 66 20 74 | 68 65 20 43 6f 6d 6d 61 |gth of t|he Comma|
|000007a0| 6e 64 20 48 69 73 74 6f | 72 79 20 6c 69 73 74 69 |nd Histo|ry listi|
|000007b0| 6e 67 20 70 72 6f 64 75 | 63 65 64 20 62 79 20 6c |ng produ|ced by l|
|000007c0| 69 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ist-comm|and-hist|
|000007d0| 6f 72 79 2e 22 29 0a 0a | 28 64 65 66 75 6e 20 6c |ory.")..|(defun l|
|000007e0| 69 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ist-comm|and-hist|
|000007f0| 6f 72 79 20 6e 69 6c 20 | 22 5c 0a 4c 69 73 74 20 |ory nil |"\.List |
|00000800| 68 69 73 74 6f 72 79 20 | 6f 66 20 63 6f 6d 6d 61 |history |of comma|
|00000810| 6e 64 73 20 74 79 70 65 | 64 20 74 6f 20 6d 69 6e |nds type|d to min|
|00000820| 69 62 75 66 66 65 72 2e | 0a 54 68 65 20 6e 75 6d |ibuffer.|.The num|
|00000830| 62 65 72 20 6f 66 20 63 | 6f 6d 6d 61 6e 64 73 20 |ber of c|ommands |
|00000840| 6c 69 73 74 65 64 20 69 | 73 20 63 6f 6e 74 72 6f |listed i|s contro|
|00000850| 6c 6c 65 64 20 62 79 20 | 20 6c 69 73 74 2d 63 6f |lled by | list-co|
|00000860| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 6d 61 |mmand-hi|story-ma|
|00000870| 78 2e 0a 43 61 6c 6c 73 | 20 76 61 6c 75 65 20 6f |x..Calls| value o|
|00000880| 66 20 20 6c 69 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |f list-|command-|
|00000890| 68 69 73 74 6f 72 79 2d | 66 69 6c 74 65 72 20 20 |history-|filter |
|000008a0| 28 69 66 20 6e 6f 6e 2d | 6e 69 6c 29 20 6f 6e 20 |(if non-|nil) on |
|000008b0| 65 61 63 68 20 68 69 73 | 74 6f 72 79 0a 65 6c 65 |each his|tory.ele|
|000008c0| 6d 65 6e 74 20 74 6f 20 | 6a 75 64 67 65 20 69 66 |ment to |judge if|
|000008d0| 20 74 68 61 74 20 65 6c | 65 6d 65 6e 74 20 73 68 | that el|ement sh|
|000008e0| 6f 75 6c 64 20 62 65 20 | 65 78 63 6c 75 64 65 64 |ould be |excluded|
|000008f0| 20 66 72 6f 6d 20 74 68 | 65 20 6c 69 73 74 2e 0a | from th|e list..|
|00000900| 0a 54 68 65 20 62 75 66 | 66 65 72 20 69 73 20 6c |.The buf|fer is l|
|00000910| 65 66 74 20 69 6e 20 43 | 6f 6d 6d 61 6e 64 20 48 |eft in C|ommand H|
|00000920| 69 73 74 6f 72 79 20 6d | 6f 64 65 2e 22 20 0a 28 |istory m|ode." .(|
|00000930| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00000940| 74 65 2d 63 6f 64 65 20 | 22 c3 88 c7 90 09 c3 0d |te-code |".......|
|00000950| 86 0b 00 c8 1c 1a 18 c9 | 0c ca 5c 22 85 16 00 08 |........|..\"....|
|00000960| 85 46 00 cb c6 21 85 2a | 00 0e 06 85 2a 00 cc 0e |.F...!.*|....*...|
|00000970| 06 08 40 5c 22 83 31 00 | c3 82 3d 00 0c 53 89 14 |..@\".1.|..=..S..|
|00000980| 88 cd 08 40 21 88 ce 20 | 88 08 41 89 10 88 82 0e |...@!.. |..A.....|
|00000990| 00 2b 88 8a c7 71 88 65 | 62 88 6d 83 59 00 cf d0 |.+...q.e|b.m.Y...|
|000009a0| 21 82 5b 00 d1 20 29 91 | 87 22 20 5b 68 69 73 74 |!.[.. ).|." [hist|
|000009b0| 6f 72 79 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ory comm|and-hist|
|000009c0| 6f 72 79 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |ory buff|er-read-|
|000009d0| 6f 6e 6c 79 20 6e 69 6c | 20 63 6f 75 6e 74 20 6c |only nil| count l|
|000009e0| 69 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ist-comm|and-hist|
|000009f0| 6f 72 79 2d 6d 61 78 20 | 6c 69 73 74 2d 63 6f 6d |ory-max |list-com|
|00000a00| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2d 66 69 6c |mand-his|tory-fil|
|00000a10| 74 65 72 20 22 2a 43 6f | 6d 6d 61 6e 64 20 48 69 |ter "*Co|mmand Hi|
|00000a20| 73 74 6f 72 79 2a 22 20 | 2d 31 20 2f 3d 20 30 20 |story*" |-1 /= 0 |
|00000a30| 62 6f 75 6e 64 70 20 66 | 75 6e 63 61 6c 6c 20 70 |boundp f|uncall p|
|00000a40| 72 69 6e 31 20 74 65 72 | 70 72 69 20 65 72 72 6f |rin1 ter|pri erro|
|00000a50| 72 20 22 4e 6f 20 63 6f | 6d 6d 61 6e 64 20 68 69 |r "No co|mmand hi|
|00000a60| 73 74 6f 72 79 2e 22 20 | 0a 43 6f 6d 6d 61 6e 64 |story." |.Command|
|00000a70| 2d 68 69 73 74 6f 72 79 | 2d 73 65 74 75 70 5d 20 |-history|-setup] |
|00000a80| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 43 6f 6d 6d |9))..(de|fun Comm|
|00000a90| 61 6e 64 2d 68 69 73 74 | 6f 72 79 2d 73 65 74 75 |and-hist|ory-setu|
|00000aa0| 70 20 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6d 61 6a |p (&opti|onal maj|
|00000ab0| 6f 72 6d 6f 64 65 20 6d | 6f 64 65 6e 61 6d 65 20 |ormode m|odename |
|00000ac0| 6b 65 79 6d 61 70 29 20 | 28 62 79 74 65 2d 63 6f |keymap) |(byte-co|
|00000ad0| 64 65 20 22 ca 71 88 cb | 08 86 09 00 09 21 88 cc |de ".q..|.....!..|
|00000ae0| c2 21 88 cd 0b 21 88 c5 | 89 14 88 cb 08 86 1d 00 |.!...!..|........|
|00000af0| 09 21 88 0e 07 86 25 00 | ce 89 16 06 88 0e 09 86 |.!....%.|........|
|00000b00| 2f 00 cf 89 16 08 87 22 | 20 5b 6b 65 79 6d 61 70 |/......"| [keymap|
|00000b10| 20 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 | command|-history|
|00000b20| 2d 6d 61 70 20 6e 69 6c | 20 65 6d 61 63 73 2d 6c |-map nil| emacs-l|
|00000b30| 69 73 70 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |isp-mode|-syntax-|
|00000b40| 74 61 62 6c 65 20 62 75 | 66 66 65 72 2d 72 65 61 |table bu|ffer-rea|
|00000b50| 64 2d 6f 6e 6c 79 20 74 | 20 6d 61 6a 6f 72 2d 6d |d-only t| major-m|
|00000b60| 6f 64 65 20 6d 61 6a 6f | 72 6d 6f 64 65 20 6d 6f |ode majo|rmode mo|
|00000b70| 64 65 2d 6e 61 6d 65 20 | 6d 6f 64 65 6e 61 6d 65 |de-name |modename|
|00000b80| 20 22 2a 43 6f 6d 6d 61 | 6e 64 20 48 69 73 74 6f | "*Comma|nd Histo|
|00000b90| 72 79 2a 22 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |ry*" use|-local-m|
|00000ba0| 61 70 20 6c 69 73 70 2d | 6d 6f 64 65 2d 76 61 72 |ap lisp-|mode-var|
|00000bb0| 69 61 62 6c 65 73 20 0a | 73 65 74 2d 73 79 6e 74 |iables .|set-synt|
|00000bc0| 61 78 2d 74 61 62 6c 65 | 20 63 6f 6d 6d 61 6e 64 |ax-table| command|
|00000bd0| 2d 68 69 73 74 6f 72 79 | 2d 6d 6f 64 65 20 22 43 |-history|-mode "C|
|00000be0| 6f 6d 6d 61 6e 64 20 48 | 69 73 74 6f 72 79 22 5d |ommand H|istory"]|
|00000bf0| 20 36 29 29 0a 0a 28 64 | 65 66 76 61 72 20 63 6f | 6))..(d|efvar co|
|00000c00| 6d 6d 61 6e 64 2d 68 69 | 73 74 6f 72 79 2d 68 6f |mmand-hi|story-ho|
|00000c10| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 49 66 20 6e 6f 6e |ok nil "|\.If non|
|00000c20| 2d 6e 69 6c 2c 20 69 74 | 73 20 76 61 6c 75 65 20 |-nil, it|s value |
|00000c30| 69 73 20 63 61 6c 6c 65 | 64 20 6f 6e 20 65 6e 74 |is calle|d on ent|
|00000c40| 72 79 20 74 6f 20 20 63 | 6f 6d 6d 61 6e 64 2d 68 |ry to c|ommand-h|
|00000c50| 69 73 74 6f 72 79 2d 6d | 6f 64 65 2e 22 29 0a 0a |istory-m|ode.")..|
|00000c60| 28 64 65 66 76 61 72 20 | 63 6f 6d 6d 61 6e 64 2d |(defvar |command-|
|00000c70| 68 69 73 74 6f 72 79 2d | 6d 61 70 20 6e 69 6c 29 |history-|map nil)|
|00000c80| 0a 0a 28 69 66 20 63 6f | 6d 6d 61 6e 64 2d 68 69 |..(if co|mmand-hi|
|00000c90| 73 74 6f 72 79 2d 6d 61 | 70 20 6e 69 6c 20 28 73 |story-ma|p nil (s|
|00000ca0| 65 74 71 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |etq comm|and-hist|
|00000cb0| 6f 72 79 2d 6d 61 70 20 | 28 6d 61 6b 65 2d 6b 65 |ory-map |(make-ke|
|00000cc0| 79 6d 61 70 29 29 20 28 | 6c 69 73 70 2d 6d 6f 64 |ymap)) (|lisp-mod|
|00000cd0| 65 2d 63 6f 6d 6d 61 6e | 64 73 20 63 6f 6d 6d 61 |e-comman|ds comma|
|00000ce0| 6e 64 2d 68 69 73 74 6f | 72 79 2d 6d 61 70 29 20 |nd-histo|ry-map) |
|00000cf0| 28 73 75 70 70 72 65 73 | 73 2d 6b 65 79 6d 61 70 |(suppres|s-keymap|
|00000d00| 20 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 | command|-history|
|00000d10| 2d 6d 61 70 29 20 28 64 | 65 66 69 6e 65 2d 6b 65 |-map) (d|efine-ke|
|00000d20| 79 20 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 |y comman|d-histor|
|00000d30| 79 2d 6d 61 70 20 22 0a | 22 20 28 71 75 6f 74 65 |y-map ".|" (quote|
|00000d40| 20 6e 65 78 74 2d 6c 69 | 6e 65 29 29 20 28 64 65 | next-li|ne)) (de|
|00000d50| 66 69 6e 65 2d 6b 65 79 | 20 63 6f 6d 6d 61 6e 64 |fine-key| command|
|00000d60| 2d 68 69 73 74 6f 72 79 | 2d 6d 61 70 20 22 0d 22 |-history|-map "."|
|00000d70| 20 28 71 75 6f 74 65 20 | 6e 65 78 74 2d 6c 69 6e | (quote |next-lin|
|00000d80| 65 29 29 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |e)) (def|ine-key |
|00000d90| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 2d |command-|history-|
|00000da0| 6d 61 70 20 22 7f 22 20 | 28 71 75 6f 74 65 20 0a |map "." |(quote .|
|00000db0| 70 72 65 76 69 6f 75 73 | 2d 6c 69 6e 65 29 29 29 |previous|-line)))|
|00000dc0| 0a 0a 28 64 65 66 75 6e | 20 63 6f 6d 6d 61 6e 64 |..(defun| command|
|00000dd0| 2d 68 69 73 74 6f 72 79 | 2d 6d 6f 64 65 20 6e 69 |-history|-mode ni|
|00000de0| 6c 20 22 5c 0a 4d 61 6a | 6f 72 20 6d 6f 64 65 20 |l "\.Maj|or mode |
|00000df0| 66 6f 72 20 65 78 61 6d | 69 6e 69 6e 67 20 63 6f |for exam|ining co|
|00000e00| 6d 6d 61 6e 64 73 20 66 | 72 6f 6d 20 20 63 6f 6d |mmands f|rom com|
|00000e10| 6d 61 6e 64 2d 68 69 73 | 74 6f 72 79 2e 0a 54 68 |mand-his|tory..Th|
|00000e20| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 6f 6d 6d |e number| of comm|
|00000e30| 61 6e 64 73 20 6c 69 73 | 74 65 64 20 69 73 20 63 |ands lis|ted is c|
|00000e40| 6f 6e 74 72 6f 6c 6c 65 | 64 20 62 79 20 20 6c 69 |ontrolle|d by li|
|00000e50| 73 74 2d 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |st-comma|nd-histo|
|00000e60| 72 79 2d 6d 61 78 2e 0a | 54 68 65 20 63 6f 6d 6d |ry-max..|The comm|
|00000e70| 61 6e 64 20 68 69 73 74 | 6f 72 79 20 69 73 20 66 |and hist|ory is f|
|00000e80| 69 6c 74 65 72 65 64 20 | 62 79 20 20 6c 69 73 74 |iltered |by list|
|00000e90| 2d 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |-command|-history|
|00000ea0| 2d 66 69 6c 74 65 72 20 | 20 69 66 20 6e 6f 6e 2d |-filter | if non-|
|00000eb0| 6e 69 6c 2e 0a 0a 4c 69 | 6b 65 20 45 6d 61 63 73 |nil...Li|ke Emacs|
|00000ec0| 2d 4c 69 73 70 20 4d 6f | 64 65 20 65 78 63 65 70 |-Lisp Mo|de excep|
|00000ed0| 74 20 74 68 61 74 20 63 | 68 61 72 61 63 74 65 72 |t that c|haracter|
|00000ee0| 73 20 64 6f 20 6e 6f 74 | 20 69 6e 73 65 72 74 20 |s do not| insert |
|00000ef0| 74 68 65 6d 73 65 6c 76 | 65 73 20 61 6e 64 0a 44 |themselv|es and.D|
|00000f00| 69 67 69 74 73 20 70 72 | 6f 76 69 64 65 20 70 72 |igits pr|ovide pr|
|00000f10| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 73 2e 20 |efix arg|uments. |
|00000f20| 20 54 61 62 20 64 6f 65 | 73 20 6e 6f 74 20 69 6e | Tab doe|s not in|
|00000f30| 64 65 6e 74 2e 0a 5c 5c | 7b 63 6f 6d 6d 61 6e 64 |dent..\\|{command|
|00000f40| 2d 68 69 73 74 6f 72 79 | 2d 6d 61 70 7d 0a 43 61 |-history|-map}.Ca|
|00000f50| 6c 6c 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |lls the |value of|
|00000f60| 20 20 63 6f 6d 6d 61 6e | 64 2d 68 69 73 74 6f 72 | comman|d-histor|
|00000f70| 79 2d 68 6f 6f 6b 20 20 | 69 66 20 74 68 61 74 20 |y-hook |if that |
|00000f80| 69 73 20 6e 6f 6e 2d 6e | 69 6c 0a 54 68 65 20 43 |is non-n|il.The C|
|00000f90| 6f 6d 6d 61 6e 64 20 48 | 69 73 74 6f 72 79 20 6c |ommand H|istory l|
|00000fa0| 69 73 74 69 6e 67 20 69 | 73 20 72 65 63 6f 6d 70 |isting i|s recomp|
|00000fb0| 75 74 65 64 20 65 61 63 | 68 20 74 69 6d 65 20 74 |uted eac|h time t|
|00000fc0| 68 69 73 20 6d 6f 64 65 | 20 69 73 0a 69 6e 76 6f |his mode| is.invo|
|00000fd0| 6b 65 64 2e 22 20 0a 28 | 69 6e 74 65 72 61 63 74 |ked." .(|interact|
|00000fe0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000ff0| 22 c0 88 c1 20 88 c2 c3 | 21 88 c4 c5 21 87 22 20 |"... ...|!...!." |
|00001000| 5b 6e 69 6c 20 6c 69 73 | 74 2d 63 6f 6d 6d 61 6e |[nil lis|t-comman|
|00001010| 64 2d 68 69 73 74 6f 72 | 79 20 70 6f 70 2d 74 6f |d-histor|y pop-to|
|00001020| 2d 62 75 66 66 65 72 20 | 22 2a 43 6f 6d 6d 61 6e |-buffer |"*Comman|
|00001030| 64 20 48 69 73 74 6f 72 | 79 2a 22 20 72 75 6e 2d |d Histor|y*" run-|
|00001040| 68 6f 6f 6b 73 20 63 6f | 6d 6d 61 6e 64 2d 68 69 |hooks co|mmand-hi|
|00001050| 73 74 6f 72 79 2d 68 6f | 6f 6b 5d 20 34 29 29 0a |story-ho|ok] 4)).|
+--------+-------------------------+-------------------------+--------+--------+
